1 REM BURGERS
2 REM 10/18/84
3 REM GEORGE DECKER
4 REM 251 N. LUZERNE AVE.
5 REM BALTO., MD. 21224
6 REM*********************
10 POKE52,48:POKE56,48:CLR
15 DIMZ$(26):B=65:FORA=1TO26:Z$(A)=CHR$(B):B=B+1:NEXT
20 POKE53281,1:PRINT"[147]BURGERS
22 [153]"BY":[153]"GEORGE R. DECKER"
25 [153]"SELECT SKILL LEVEL":[153]:[153]
30 [153]"STOPF1 - EASY":[153]"F3 - NORMAL":[153]"F5 - HARD":[153]"F7 - CHILDREN"
35 [161]A$:[139]A$[178]"INPUT"[167]K[178]150:[137]70
40 [139]A$[178]"DIM"[167]K[178]100:[137]70
45 [139]A$[178]"READ"[167]K[178]50:[137]70
50 [139]A$[178]"LET"[167]K[178]200:[137]70
60 [137]35
63 [143] GET SKILL LEVEL
70 [153]"WAIT ONE MOMENT"
73 [129]A[178]54272[164]55295:[151]A,0:[130]:[143] CLEAR OUT SID
75 [151]54273,48:[151]54272,127:[151]54277,0:[151]54278,128:[151]54296,15
76 [143] SET MUSIC
80 [151]53265,[194](53265)[175]239:[143] BLANK SCREEN
100 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251
110 [129]A[178]0[164]463:[151]14336[170]A,[194](53248[170]A):[130]
120 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
130 [151]53272,([194](53272)[175]240)[176]14
140 [143]****MOVE CHARACTER ROM****
150 [129]A[178]14800[164]14831:[135]B:[151]A,B:[130]
160 [131]3,3,15,15,63,63,255,255:[143] 58
170 [131]255,255,255,255,255,255,255,255:[143] 59
180 [131]192,192,240,240,252,252,255,255:[143] 60
190 [131]192,240,252,255,255,252,240,192:[143] 61
200 [143]***CUSTOM CHARACTERS
201 [131]0,0,0,0,0,0,0,0
202 [131]0,0,0,0,0,0,0,0
203 [131]0,0,0,0,0,0,0,0
204 [131]0,0,0,0,0,0,0,0
205 [131]0,0,0,0,0,0,0,85
206 [131]85,85,85,85,85,21,85,84
207 [131]21,85,84,5,85,80,5,85
208 [131]80,1,85,64,1,85,64,0
209 [131]0,0,0,0,0,0,0,0
210 [131]0,0,0,0,0,0,0,0
211 [131]0,0,0,0,0,0,0,0
212 [131]0,0,0,0,0,0,0,0
213 [131]0,255,255,255,255,255,255,85
214 [131]85,85,85,85,85,21,85,84
215 [131]21,85,84,5,85,80,5,85
216 [131]80,1,85,64,1,85,64,0
217 [131]0,0,0,0,0,0,0,0
218 [131]0,0,0,0,0,0,0,0
219 [131]0,0,0,0,0,0,0,0
220 [131]0,0,0,170,170,170,170,170
221 [131]170,255,255,255,255,255,255,85
222 [131]85,85,85,85,85,21,85,84
223 [131]21,85,84,5,85,80,5,85
224 [131]80,1,85,64,1,85,64,0
225 [131]0,0,0,1,85,64,1,85
226 [131]64,5,85,80,5,85,80,21
227 [131]85,84,21,85,84,85,85,85
228 [131]85,85,85,170,170,170,170,170
229 [131]170,255,255,255,255,255,255,85
230 [131]85,85,85,85,85,21,85,84
231 [131]21,85,84,5,85,80,5,85
232 [131]80,1,85,64,1,85,64,0
235 [129]A[178]12288[164]12543:[135]B:[151]A,B:[130]
240 [129]A[178]12544[164]12606:[151]A,0:[130]
250 [143]***SPRITE CHARACTERS***
310 [151]53280,14:[151]53281,1
320 [153]"LOAD  STOPSCORE        ;;;;;;;;;     STOPHIGH SCORECMDCMDCMDCMDCMDCMD"HS"ON"
330 [153][163]15)";CLRBURGERS;"
340 [153][163]15)";;;;;;;;;"
350 [129]A[178]1184[164]1223:[151]A,59:[151]A[170]760,59:[151]A[170]800,59
360 [151]A[170]54272,14:[151]A[170]55032,14:[151]A[170]55072,2:[130]
370 [129]A[178]1224[164]1904[169]40:[151]A,59:[151]A[170]39,59
380 [151]A[170]54272,14:[151]A[170]54311,14:[130]:Z[178]2
390 [129]A[178]1356[164]1916[169]40:[129]B[178]0[164]3:[151]A[170]B,59:[151]A[170]B[170]54272,Z
400 [139]Z[178]2[167]Z[178]7:[137]430
410 [139]Z[178]7[167]Z[178]12:[137]430
420 Z[178]2
430 [130]B:[130]A
440 [129]A[178]1360[164]1372:[151]A,59:[151]A[170]200,59:[151]A[170]400,59
450 [151]A[170]54272,2:[151]A[170]54472,7:[151]A[170]54672,12:[130]
460 [151]1372,61:[151]1572,61
470 [153]""[163]16)"VERIFY:;<:;<:;<:;<"
480 [129]A[178]1133[164]1135:[151]A[170]54272,1:[151]A,59
485 [151]1893,59:[151]1894,59:[151]1933,59:[151]1934,59:[151]1935,59
487 [151]56165,13:[151]56166,13:[151]56205,13:[151]56206,13
488 [151]1895,59:[151]56167,13:[151]56207,13
490 [151]A[170]54312,1:[151]A[170]40,59:[130]
500 [143]***SCREEN SET UP***
505 [151]53275,15:[143] SPRITE BEHIND BACKGROUND
510 V[178]53248:[151]V[170]21,15:[143] TURN ON FIRST 4 SPRITES
520 [151]2040,196:[151]2041,196:[151]2042,196:[151]2043,196:[143] SPRITES BLANK
530 [151]V[170]39,7:[151]V[170]40,7:[151]V[170]41,7:[151]V[170]42,7:[143] SET SPRITE COLOR
540 [151]V[170]28,15:[151]V[170]37,9:[151]V[170]38,10:[143] SET MULTI COLOR SPRITES
560 [151]2040,192:[151]V[170]0,0:[151]V[170]2,0:[151]V[170]4,0:[151]V[170]6,0
570 [151]V[170]1,68:[151]V[170]3,107:[151]V[170]5,146:[151]V[170]7,185:[151]V[170]16,15
575 [143]*** SET SPRITE POSITIONS***
576 [143]***START OF GAME FOLLOWS***
577 [151]53265,[194](53265)[176]16:[129]A[178]1[164]600:[130]
578 SC[178]0:FB[178]39:UB[178]0
580 [129]A[178]1[164]39:[151]54276,33
590 S[178][181]([187](1)[172]26)[170]1
600 T[178][181]([187](1)[172]26)[170]1:[139]T[178]S[167]600
610 U[178][181]([187](1)[172]26)[170]1:[139]U[178]T[167]610
620 [153]""Z$(S)
630 [153]"SYS"Z$(T)
640 [153]"VERIFY"Z$(U)
650 [151]V[170]1,A[170]68:[151]V[170]3,A[170]107:[151]V[170]5,A[170]146:[151]V[170]7,A[170]185:[151]54276,32:[130]
655 [151]2044,[194](2043)
660 [151]2043,[194](2042):[151]V[170]7,185
670 [151]2042,[194](2041):[151]V[170]5,146
680 [151]2041,[194](2040):[151]V[170]3,107
690 [151]2040,192:[151]V[170]1,68
700 [129]B[178]1[164]K
710 [161]A$
720 [139]A$[178]Z$(S)[167][151]2041,193
730 [139]A$[178]Z$(T)[175][194](2042)[178]193[167][151]2042,194
740 [139]A$[178]Z$(U)[175][194](2043)[178]194[167][151]2043,195
750 [130]B
760 [139][194](2044)[178]196[167]580
770 [139][194](2044)[179][177]195[167]800
780 SC[178]SC[170]100:[153]"STOP"SC
790 UB[178]UB[170]100:[139]UB[178]1000[167]820
795 [137]580
796 [143] UPDATE SCORE
800 [151]56256[170]FB,1:FB[178]FB[171]1:[139]FB[178]0[167]860
810 [137]580
815 [143] DECREASE FIXINGS-SEE IF GAME IS OVER
820 FB[178]FB[170]1:[139]FB[177]39[167]FB[178]39
830 [151]56256[170]FB,2:UB[178]0
840 K[178]K[171]5:[139]K[179]25[167]K[178]25
850 [137]580
855 [143] INCREASE FIXINGS-SPEED UP GAME
860 [151]V[170]21,0
863 [139]SC[178][177]HS[167]HS[178]SC
865 [153]"LOADSTOPGAME OVER!"
870 [153]"FINAL SCORE "SC
880 [153]"HIGH SCORE "HS
890 [153]"TO PLAY AGAIN PUSH ANY KEY.":[151]198,0
900 [146]198,1:[140]:[137]20
910 [143] END GAME-SEE IF ANYONE WANTS TO PLAY AGAIN